EnigmA Amiga Run 1995 October/EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso/Aminet/dev/gui/gengui2.lha/GenGui2/Examples/plot.gui

Text File | 1995-05-11 | 4KB | 245 lines

#c_source

int RegionLeft,RegionTop,RegionWidth,RegionHeight;

int __stdargs Border(struct WinInfo *winfo,
                     struct NewGadget *ng,
                     struct GadInfo *gad,
                     int left, int top, int width, int height)
{
   if(winfo->Render) {
      DrawBevelBox(winfo->Window->RPort,ng->ng_LeftEdge,ng->ng_TopEdge,
                                     ng->ng_Width,ng->ng_Height,
                                     GT_VisualInfo,winfo->Visual,TAG_DONE);
      RegionLeft=ng->ng_LeftEdge+2;
      RegionTop=ng->ng_TopEdge+2;
      RegionWidth=ng->ng_Width-4;
      RegionHeight=ng->ng_Height-4;

   }

   return 0;
}

#define FUNC_X 1
#define FUNC_Y 2
#define FUNC_Z 3
#define LOW_U  4
#define HIGH_U  5
#define LOW_V  6
#define HIGH_V  7
#define STEP_U  8
#define STEP_V  9

#define ROT_X   10
#define ROT_Y   11
#define ROT_Z   12

#define AXES    13
#define OUTLINE 14

#define DEG 17

#define RENDER  15
#define QUIT    16

#end_source

ProjectName Plot
HBox
   xspace 4
   yspace 4
   Custom
      MinHPix 100
      MinVPix 100
      Custom Border
   end

   bar

   Vbox
      stdcol 20

      hbox
         vchar 1
      end

      string
         flags PLACETEXT_ABOVE
         text "x(u,v):"
         tags GTST_MaxChars,256
         id FUNC_X
      end

      hbox
         vchar 1
      end

      string
         flags PLACETEXT_ABOVE
         text "y(u,v):"
         tags GTST_MaxChars,256
         id FUNC_Y
      end

      hbox
         vchar 1
      end

      string
         flags PLACETEXT_ABOVE
         text "z(u,v):"
         tags GTST_MaxChars,256
         id FUNC_Z
      end


      bar

      hbox
         vchar 1
      end

      hbox
         stdline 1

         string
            flags PLACETEXT_ABOVE
            text "min u:"
            tags GTST_MaxChars,256
            id LOW_U
         end

         string
            flags PLACETEXT_ABOVE
            text "max u:"
            tags GTST_MaxChars,256
            id HIGH_U
         end
      end

      hbox
         vchar 1
      end

      hbox
         stdline 1
         string
            flags PLACETEXT_ABOVE
            text "min v:"
            tags GTST_MaxChars,256
            id LOW_V
         end

         string
            flags PLACETEXT_ABOVE
            text "max v:"
            tags GTST_MaxChars,256
            id HIGH_V
         end

      end

      hbox
         vchar 1
      end

      hbox
         stdline 1
         integer
            flags PLACETEXT_ABOVE
            text "steps u:"
            tags GTIN_MaxChars,2,GTIN_Number,20
            id STEP_U
         end

         integer
            flags PLACETEXT_ABOVE
            text "steps v:"
            tags GTIN_MaxChars,2,GTIN_Number,20
            id STEP_V
         end

      end

      hbox
         vchar 1
      end

      hbox
         stdline 1
         integer
            flags PLACETEXT_ABOVE
            text "rot-Y:"
            tags GTIN_MaxChars,3,GTIN_Number,45
            id ROT_Y
         end

         integer
            flags PLACETEXT_ABOVE
            text "rot-X:"
            tags GTIN_MaxChars,3,GTIN_Number,-30
            id ROT_X
         end

         integer
            flags PLACETEXT_ABOVE
            text "rot-Z:"
            tags GTIN_MaxChars,3
            id ROT_Z
         end

      end


      hbox
         vchar 1
      end


      integer
         flags PLACETEXT_ABOVE
         text "Deg.:"
         tags GTIN_MaxChars,3
         id DEG
      end

      hbox

         vchar 2
         vpix  8

         hbox
         end

         vbox
            checkbox
               text "Axes:"
               tags GTCB_Checked,TRUE
               id AXES
            end
            checkbox
               text "Outline:"
               tags GTCB_Checked,TRUE
               id OUTLINE
            end
         end
      end

      button
         text "Render"
         id RENDER
      end

      hbox
      end

      button
         text "Quit"
         id QUIT
      end
   end

end